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BASSINIT 18-Sep-1984 AX=11 Bliss-32_V4.0-7462 p 
| en sep-19be 91:85:68 — Eeasete Snedeagintt cases ae 
| 
| MODULE BASSINIT ( 
[DENT = "1-021" ! File: BASINIT.B32 Edit: 0G1021 
= 


i 


i eeeeeenrerenrenereerererererererererereeeeeeeeerecereneeeeneeeeeeeeeeneeeeee 


ie COPYRIGHT («) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS” RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE A 
i@ ONLY IN ACCORDANCE WITH mS OF SU 
ie INCLUSION OF THE ABOVE COPIRIGuT NOTICE. TH 


| 
| 


a 

& 

® 

® 

g 
MAY BE USED AND COPIED + 
LICENS DWITH THE 
SOFTWARE OR OTHER * 
MADE AVAILABLE TO.ANY 

i SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
* 

i THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE ®* 
we 

® 

m 

. 

oe 

® 

& 

® 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
'® CORPORAT TON. 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i eeeeeeeereererenerrenereneeeeeeeeererteeeeereeeerereeeneneeeeneeeeeeeeenees 
' 


NOWUVEWN $9 ODNOAOU EWN OC OODNOU EW SO OONOU EW 


WAAAAIAI AI II RO PUR PUPNUPNUY es 


COoOoooooooooooooo ooo 
ptatotatatotatototatotatat=t=tat=tatatatatatatat=tatatata 
a kk a a a kk a a dd dd ot I OOO 


; oe 
; FACILITY: BASIC=PLUS-2 Frame Support 
; ABSTRACT: 
3 ! These routines set up and tear down frames for BASIC“PLUS=2. 
3 : Frames are used for main routines, external functio 
3 ! external subroutines, internal functions (both DEFs. ond DEF *s) 
: ; internal subroutines (GOSUBs) and condition handlers. 
ey se ENVIRONMENT: VAX-11 user mode 
$§ B08 AUTHOR: John Sauter, CREATION DATE: 10-Oct-78 
44 044 ' MODIFIED BY: 
45 045 ! 
46 004 ! 1-001 - Original. 
47 004 ! 1-002 = Clear numeric array elements when allocatifg them. JBS 31-JAN-1979 
48 0048 ! 1-003 - Correct a typo in the check for fr opeoper number of arguments 
49 0049 ! to a subroutine. S 02-FE 
50 050 ! 1-004 - Correct some typos “ akaten = erreys. JBS 05-FEB-1979 
51 51 ! 1-005 = Check scale factors and long/double flags in the previous 
26 b2¢ ! asjer frame, not just the pr vious ogre: JBS 08-FEB-1979 
5 05 ‘ 1-006 - Remove BSF$B_IN_L_FCD. S$ 09-FEB-197 
54 054 ! 1-007 = Use an auxilTary Variabl : yh tise the result string 
55 055 : ts avoid a bug in the Piss come bor raungt referring to 
56 B26 i P directly as a BUILTIN, ses | 
57 005 i 1-008 - shosane two kinds of strings: Bu ma» and fixed. JBS 20-MAR-1979 
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3 28 ; 1 ! 1-009 = Do not imply that R11 points fo a frogs. he Fy rorere 

3 1 ! 1-010 - change OT nd 4188s to ; R$. JBS 21-MAY-19 

; 60 1 ! 1-011 = Use r ght shifts instead of divides. JBS et art} 14g 

; 6) 1 ! 1-012 = Check for correct code in arg st. JBS 035-AUG-1979 

; 6¢ 86 1 ! 1-015 = Change BASSK_WROMATPAC to BASSK_DIFUSELON. JBS 19-SEP-1979 

3; © 1 ! 1-014 = Add support for run-time dimensToned arrays. PLL 12-May-1982 

; 666 1 ! 1-015 = Check frame version number before executing the new run-time 

; 65 065 1! array code. PLL 17-May-1 

3 68 1 ! 1-016 = Check for two frames using the same integer and float types 

; 6 1! should ms be done for Basic V1 programs. PLL 20-May- 

; 68 0068 1 ! 1-017 = Add only 123 on the stack for V2 variables. Otherwise all the 

3 9 534 1! BSFSMAJOR_ FRAME offsets will be wrong. PLL 3-Jun-198 

3 0 Q 1 ! 1-018 = Set up BSFSA_USER_HAND from R11, not FP. PLL 4-Jun-1 8¢ 

3; 6|CU? 71 1! 1-019 = The compiler allocates contiguous space for array descriptors 

, §F£ vece = and run-time array descriptors. The start address for the 

ee 751! rt arrays can be calculated from the start address of all array 

; 676 7 «1! descriptors and the offset for rt descriptors (passed by the 

; 75 1! compiler). PLL Sas hd 2 

ws. 0076 1! 1-039 - Only set BSFSA_RTA_DESC if this is a V2 program. PLL 11-Aug-1982 
Pur - 0077 1°! 1-021 = Allow result peresscer passed to a STRING FUNCTION to be a static 
3 0078 1! string (so other Lang's w/o dynamic strings can call such functions. 
> ie 0079 1! DG 14-Feb-1984 

; 80 0080 1 !-- 

; 0081 1 

 S 0082 1! 

; 8 008 1 !<BLF/PAGE> 
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SWITCHES: 


; TABLE OF CONTENTS: 


FORWARD ROUTIN 
BASSINIT_R 


INCLUDE FILES: 


LIBRARY ‘RTLSTARLE'; 

REQUIRE *RTLIN:RTLPSECT'; 
REQUIRE "RTLIN:BASFRAME'; 
REQUIRE ‘RTLIN:BASINARG'; 


i MACROS: 

NONE 

| EQUATED SYMBOLS: 

; NONE 

| PSECTS: 

DECLARE _PSECTS (BAS); 
i OWN STORAGE : 

; NONE 

i EXTERNAL REFERENCES: 
EXTERNAL ROUTINE 


STRSFREE1 DX, 
BASSSSIGNAL : NOVALUE, 


LINKAGES: 

LINKAGE 
BASSINIT_LINK = JSB (RE 
GLOBAL (BSFS$A_MAJOR_STG 
NOPRESERVE (8; 7, 6, 5, 


: NOVALUE BASSINIT_LINK; 


6 
$-sep-1964 00:58:28 Yana] BLing=32 v4.0-742. 


or 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


Kz 1. REGISTER = 2) 2)! 
STG ='10, BSFSA_TEMP_STG = 9) 


start major frame 


symbols for strings 


macros for defing psects 


Define frame structure 


Define argument List 


declare psects for BAS$ facility 


frees a dynamic string 
signals error 


---- -—-- 


| 


eae 


— 
err 


; 


Ok kt ot 
ar 
ViFWwN—O OM we 


PAA 


beste tt 00:38: a mht, 


BASSHANDLER; ! handles signals 


} The following are the error codes used in this module. 


EXTERNAL LITERAL 
BASSK_TOOFEWARG : UNS] 
BA OOMANARG : UNS! 
BASSK_SCAFACINT : UNS] 
BASSK_-DIFUSELON : UNS] 
tte ~ARGDONMAT : UNS] 


! Too few arguments 
! Too many arguments 
! Scale factor interlock 


: od uments don't match 
nt pA 


—A RR 
fo Te Te Te Te -) 
~ewww 
esse ee 

erecscesecacse 


BLi 
SR 


' /LONG, /DOUBLE problems 


neSaasini 


if’ 


0-7 
83 


4 
2:1 


Q 
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wn 
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MEWN—o 
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GLOBAL wr tte BASSINIT_RB ( ! start major frame 
ARGLIST, ! frame parameters 
DATA_RELOC, ' start of data 


CODE 


“RELOC ! start of code 
ds NOVACUE BASSINIT_LINK = 


ee 

FUNCTIONAL DESCRIPTION: 

Set a frame for a BASIC-PLUS-2 major procedure. The frame 
is allocated on the stack, and R11 and RY are set up to point 
to it. The argument List tells how to do the allocation. 

' FORMAL PARAMETERS: 

ARGLIST.rx.v List of information needed to set up the 
frame. See BASIC-PLUS-2/VAX Description 
of Generated Code for details. 

DATA_RELOC.ra.v Address of this procedure's data. Data offsets 
in the argument list are based on this value. 

CODE_RELOC.ra.v Address of this procedure's code. Offsets in 
the PC delta table are based on this value. 

IMPLICIT INPUTS: 


Some information from the previous frame, if it is a 
SIC frame. 


IMPLICIT OUTPUTS: 


The values of R11 and RY, which point to the automatic 
storage and the temporary storage, respectively. 


ROUTINE VALUE: 
NONE 
COMPLETION CODES: 
NONE 

SIDE EFFECTS: 


Leaves lots of things on the stack for use by the conoi led 
BASIC-PLUS-2 code. These things will be removed by BASSEND_R8. 


BEGIN 


A_MAJOR_STG : REF BLOCK C, BYTE] FIELD (BSFSMAJOR_FRAME), 


BUILTIN 
AP, 


—— ee 


— 
vai 


18-00-1966 00:58:25 yAtctt BLis5=52 v4.0-742_ 


1 FP, 
1 SP 
1 Cvfio; ! convert 32-bit integer to double floating 
1 p 
1 ARGLIST : REF BLOCK CO, BYTE] FIELD (BASSINIT ARGS) ' arg List 
: REF VECTOR; ' caller's arg list 


'¢ 
! Define local variables as repisters. We cannot have any stack locals 
since we manipulate the stack pointer in this routine. 


NOUS WN —OOODAOUSE 


REGISTER 


ao 


LESRENS 


has been reduced for V @€ amount that the frame was increased so that 
offsets from FP (BSFSFCD y te; and from R11 (BSFSMAJOR_FRAME) will continue 


'¢ 
i 
i 
storage which is gasity ad pcerpecee by byte offsets. This amount of storage 
i 
_ to work for both versions 1 and 2. 


= 


NOUS WO 


CASE gine. ist CBAS$B_IN_V_FCD] FROM 1 TO 2 OF 
1): 


3 8 7 Ade ADDRESS, ' address to return to 

3 9 : REF B BLOCK C0 eyre) AY D (BSFSFCD) ! pointer to FCD 
; 06 PREV: FMP: REF BLOCK CO, BYTE) FIELD (BSF$FCD), | a previous frame 
3 HY 0608 ARRAY_DESC : REF BLOCK fo, Byte, : pointer to build orrey descriptors 
5 ¢ +44 ARRAY_ IND x, ! index for array modification 
; 10 LEN; ' Length of major frame 
3 ¢ gets ms i “(diff for vi and v2) 
3 0618 Save return address because we are going to fool with the stack 

; 0615 RETURN_ADDRESS = ..SP; 

; 239 8918 

; 260 061 '¢ 

: 241 0618 ' Allocate frame control data. 

3 eg 0619 ve 

3 4 0620 FMP = FP; 

; 246 0621 

; o2 06 § ane” | meee CBAS$B_IN_V_FCD] FROM 1 TO 2 OF 

3; 26 Oe 4 C1) : 

; 48 5 FCD_LEN = BSFSK_LENFCDMAJ; 

3 249 0626 

i $30 $55 £23 ie = BSFSK.LENFCOMAJ2 

3 = 3 

3s 2 0 COUTRANGE) : 

: 254 0631 BASSSSIGNAL (BASSK_NOTIMP); 

; 255 06 ; TES; 

: 28 0634 SP = .FMP = .FCD_LEN; 

; 258 5 

; 259 06 

: 260 

FY 61 638 LOAD Rn (R11) 

3 $¢ 9 Notice that first the frame is allocated, eben an arbitrary amount of 
; 264 

: 265 

: $6 

: 268 


Oo 
<3 


0 


tes 


Kk 6 
eM" 1e-8ep-198e 11:58:68 EBASRTLSRESBASINIT OSes 
; 7 BSFSA_MAJOR_STG = .SP = 127; 
7 "BSFSA_MAJOR_STG = .SP = 123; 
75 
1 
78 
79 


COUTRANGE I: 
SS$SIGNAL (BASSK_NOTIMP); 


BSFSA_MINOR_STG = 0; 


' 
i Init BSFSA_USER_HAND. 

! It is initTalizéd to 0 normally (ON ERROR GOTO 0), but if the 

i first statement in the program is ON ERROR GOTO <line number> 

: or ON ERROR GO BACK, it is initialized to 1 (ON ERROR GO BACK) 

! to prevent a ‘window’ in which error handling is ON ERROR GOTO 0 
no matter what the user wants. 


IF _(C.ARGLIST CBASSW_IN_FLAGS] AND BSFSM_FCD_OEGO) NEO 0) 


-BSFSA_MAJOR_STG + 127 = 1 
ELS 


SSLEREALVES 


sagesesesceceesroese 


91 $ -BSFSA_MAJOR_STG + 127 = 0; 
38 0690 te 
3s 4 : Initialize parts of the frame control data. 
96 0678 FMP CBSFSA_MARK] = 0; 
74 FMP CBSFSA_BASE_R11) = .BSFSA_MAJOR_STG; 
8 0675 FMP CBSFSA_BASE-R10) = .BSFSA-MINOR_STG; 
0676 FMP CBSF$B_LEN FCD -FCD_LER; 
067 FMP CBSFS$B~PROC cope) = .ARGLIST FBAS$B_1N_PROC C3; 
78 FMP CBSFSW-FCD FLAGS) = .ARGLIST CBAS$SW-IN-FLAGS); 
0679 FMP CBSFSA_PROC_ID) = .ARGLIST CBASSL_IN_PROC_IJ + .DATA_RELOC; 
0680 FMP CBSFSA_INIT~ARG LIST; 


~INITL = .ARG 
“A BSFSL-INIT“REL) = .DATA_RELOC; 
Allocate numeric scalars. They are all initialized to zero. 


oO 
D0 
_ 
nn 
S 


FS 


pace, Soren FROM 1 TO .ARGLIST CBASS$L_IN_LEN_SC) DO 
SP = yo = ZUPVAL; 
-SP = Q; 
END; 


E258 


co 
~o 


'e 
Copy formals. 


DECR COUNTER FROM MIN (.ARGLIST CBAS$B_IN_NO_FMLJ, ((.AP [0J) AND 255)) TO 1 DO 


SP = .SP = ZUPVAL; 
~SP = .AP C. COUNTER); 
END; 
'¢ 
: Allocate and initialize descriptors. 
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- SP = .SP = .ARGLIST CBASSL_IN_LEN_DT); 
; Set ARRAY_DESC to point to the space allocated. 
ARRAY_DESC = .SP; 


i+ 
! Calculate the start address of the run-time array descriptors 
! from the start address of all array descriptors and the offset 
to the rt descriptors. 


IF (.ARGLIST (BASSB_IN_V_FCD] GTR_1) AND !make sure rt arrays supported 
(.ARGLIST CBASSL-IN-LEN_RTA_DT] NEQ 0) 


FMP CBSFSA_RTA_DESC) = .SP + (.ARGLIST CBASSL_IN_RTA_TMT] - 
-ARGLIST CBASSL_IN_DT_TMTJ); 

1+ 

! Load the space from the template and then modify it based 

on the modification table. 


INCR COUNTER FROM 0 TO ((.ARGLIST CBASSL_IN_LEN_DT]*=-2) = 1) DO 


N 
ARRAY_DESC C.COUNTER*ZUPVAL, 0, ZBPVAL, 0] = .((.ARGLIST CBASSL_IN_DT_TMT]) + ! 
gDATACRELOC + (. COUNTER*ZUPVALS); 


'¢ 
Now modify the descriptors. These are usually array descriptors. 


INCR COUNTER FROM 0 TO (.ARGLIST CBASSL_IN_LEN_DM] - 1) DO 


ARRAY_INDEX = .((.ARGLIST CBASSL_IN_DT_MOD]) * .DATA_RELOC + (.COUNTER®*ZUPVAL)); 
BSFSA_MAJOR_STG C.ARRAY_INDEX, 07 ZBPVAL, ! 
Enie nt SAAPATOR SIG C.ARRAY_INDEX, 0, %BPVAL, 0] + .BSFSA_MAJOR_STG; 


te 
: Allocate dynamic string descriptors. 


a ee FROM 1 TO .ARGLIST CBAS$W_IN_NO_DST] DO 


GI 
SP = .SP = SUPVAL; shes: 

SP = 0; ! Pointer 0 implies not allocated. 
SP = .SP = ZUPVAL; 

BLOCK [.SP, DSC$B_CLASS: 0, BvTE = DSC$K_CLASS_D; ' dynamic 

BLOCK £.SP, DSCSB-DTYPE; 0, BYTE] = DSCSK-DTYPE-T: i text 

BLOCK CSP, DSCSW-LENGTH; 6, BYTE] = 0; '“Length = 0 


, FMP CBSFSA_STR_DESC] = «SP; 
: Allocate fixed string templates. 
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wen Seyeen FROM 1 TO .ARGLIST CBAS$W_IN_NO_FSTJ DO 


GI 
SP = .SP = XUPVAL; 
SP = Q; ! Pointer 0 implies not allocated. 
§P = .SP = XUPVAL; 
BLOCK (.SP, DSC$B_CLASS; 0. BYTE] = DSCSK_CLASS_S; ' fixed 
BLOCK [.SP, DSCSB-DTYPE; 0, BYTE] = DSC$K-DTYPE-T; i text 
SP, DSCSWILENGTH; 6, BYTE] = 0; !“Length = 0 


BLOCK 
END; 
1+ 
Allocate numeric array elements. They are all initialized to zero. 
ee FROM 1 TO (.ARGLIST CBAS$SL_IN_LEN_NA]*=2) DO 

SP = .SP = ZUPVAL; 

SP = 0; 


END; 
‘4 
Allocate temporary cells. 


iv ((.ARGLIST CBAS$L_IN_NO_TST] NEQ 0) OR (.ARGLIST CBASS$SL_IN_NO_NMTJ NEQ 0)) 
_ BEGIN 
We must set up R9. First allocate string temporaries. 


ee FROM 1 TO .ARGLIST CBAS$L_IN_NO_TST] DO 


GIN 
SP = .SP = ZUPVAL: ‘ 
SP = 0; ! Pointer 0 implies not allocated. 
SP = .SP = XUPVAL: 
BLOCK [.SP, DSC$B_CLASS: 0, BYTE] = DSCSK_CLASS_D; ! dynamic 
BLOCK C.SP, DSCSB“DTYPE: 0, BYTE] = DSCSK“DTYPE-T: | text 
BLOCK SP. DSCSWTLENGTH; 6, BYTE) = 0; ! léngth = 0 


'¢ 
Point R9 to the Last string descriptor allocated. 


BSFSA_TEMP_STG = .SP; 
: Now allocate numeric temporaries. 
; Bs: .SP = .ARGLIST CBASS$L_IN_NO_NMT); 


'e 
: Store the value of R9, whether or not loaded, in the frame. 


FMP (BSFSA_BASE_R9) = .BSFSA_TEMP_STG; 


sess 


iar ee ee, Nes kB eon, aera | 
egy IEREEHOES PSEESGE MRSA SURE MSS, GP 


; re 4 H Set up major frame information. 

; 4h4 1 

3; 445 0 ¢ CASE .ARGLIST CBAS$B_IN_S_V_DB] FROM -6 TO O OF 

: 446 08 SET 

: 447 0824 

>; 448 83 5 (0J : 

: re Be § CVTLD (ZREF (1), FMP CBSFSD_SCALE_DOU)); 

; res 0828 {-1] : 

; +26 08 4 CVTLD (ZREF (10), FMP CBSFS$D_SCALE_DOU)); 

3; 454 b8 1 {-2) : 

; 455 08 ; CVTLD (ZREF (100), FMP CBSFSD_SCALE_DOU)); 

; 456 083 

3; 457 0834 {-3] : 

; 458 0835 CVTLD (ZREF (1000), FMP CBSFSD_SCALE_DOU)); 

3; 459 0836 

: 460 0837 [-4] : 

; 461 0838 CVTLD (ZREF (10000), FMP CBSFSD_SCALE_DOU)); 

; 46 0839 

; 46 0840 (-5] : 

; 464 0841 2 CVTLD (ZREF (100000), FMP CBSFSD_SCALE_DOU)); 
3; 465 pace 2 

: 466 084 {-6) : 

; ret Oecd CVTLD (ZREF (1000000), FMP CBSFSD_SCALE_DOU)); 
3 469 0846 COUTRANGE) : 

; 470 0847 CVTLD (ZREF (0), FMP CBSFSD_SCALE_DOU)); 

3; 471 0848 TES; 

3 67 0849 

; 47 0850 FMP CBSFS$B_SCA_V_DOU] = .ARGLIST paste. IN_S_V_DBJ; 

: 474 0851 2 FMP CBSFS$B_SCA_V— PAC) = ARGL 131 BASSE, IN-S-V"PK); 

3; 475 p82¢ FMP CBSFSA_CUR_DATA GLIST CBAS$L JIN _BEG_BA) + -DATA_RELOC; 
3; 476 085 FMP BSFSA_ END" DATA ARGL IST CBAS$L_ IN- “END_DA) + -DATA_RELOC; 
3 477 0854 FMP CBSFS$A_BASE_PC) = *.t0 DE_RELOC; 

3; 478 0855 '¢ 

3; 479 oe28 _Complete frame. 

: 480 085 : 

: 481 0858 FMP CBSFSA_BASE_SP) = .SP; 

3 482 0859 FMP CBSFSA_HANDCER] = BAS$HANDLER; 

3: 483 0860 '¢ 

> 484 0861 ! First consistency checks. 

3 rit Baes !- 

3; 6 86 

3; 487 0864 IF (((,AP [0J) AND 255) NEQ .ARGLIST CBAS$B_IN_NO_FMLJ) 
: 488 0865 THEN 

; 489 0866 8¢ 

: 490 0867 ! The number of arguments is incorrect. 

3 491 0868 le 

; 49 0869 BEGIN 

3: 49 0870 

; 49% 0871 4 IF (((,AP (OJ) AND 255) GTRU .ARGLIST CBAS$B_IN_NO_FMLJ) 
: 496 $878 4 BEGIN 

3; 497 0874 4 !+ 

; 498 0875 4 ! Main programs are permitted more arguments than they are declared 


a es SR A a Oe pa Os ar 


B 7 

BASSINIT 1o~3ep-1984 00:38:23 AX-11 Bliss-32 V4.0-742 Page 11 
e831 ene 13a 99:88:68 = BAsa te SReSeagintt esos aa 
>; 499 6 4 ! with, to allow old BASIC programs to work with later versions of 

3 8) 78 $ ; the command Language interpreter. 

; 50 79 4 

; 08 O8e0 4 IF (.FMP CBSFSB_PROC_CODE] NEQ BSFSK_PROC_MAIN) THEN BASSS$SIGNAL (BASSK_TOOMANARG); 
; $05 O88 4 eset” 

: 309 0884 BASSSSIGNAL (BASSK_TOOFEWARG); 

; 508 0885 

; 316 pase END; 

: 511 088% IF (((.FMP CBSFSW_FCD_FLAGS]) AND (BSFSM_FCD_RSTR)) NEQ 0) 

; 21g 0889 THEN 

) 0890 BEGIN 

; 18 0892 LOCAL 

; 516 0898 STR_DESC_ADDR : REF BLOCK (8, BYTE); 

: 3ig 0895 3 t+ 

: 519 0896 i This procedure has been marked by the compiler as returning a 

; 260 0897 : string result. Be sure that there is at least one formal, and 

3 526 +94: that it is a dynamic or static string descriptor. If so, null its value. 

: 52 0900 3 

; 26 990) IF (.ARGLIST CBAS$B_IN_NO_FML] LSSU 1) THEN BASSSSIGNAL (BASS$K_TOOFEWARG); 
: 526 090 STR_DESC_ADDR = AP (1); 

; 2sf 443 STR_DESC_ADDR = ..STR_DESC_ADDR; ! Avoid BLISS compiler bug 

; 44 0906 IF (((.STR_DESC_ADDR COSC$B_CLASS] NEQU DSC$K_CLASS_D) AND 

3; 3 0907 4 (.STR_DESC_ADDR CDSC$B_CLASS] NEQU DSC$K_CLASS_S)) OR 

; 23 44 & (.STR_BESC_ADDR COSCS$B_BTYPE] NEQU DSC$K_BTYPE_T)) 

: 335 0910 BASSSSIGNAL (BAS$K_ARGDONMAT) ; 

: 336 Oo12 3 t+ 

; 238 0918 i Null the string. This insures that, if the procedure does not reference 

3 ELA Bore the string, the function will have the value of the null string. 

; 239 0916 3 IF STR-DESC_ADDR CDSC$B_CLASS] EQLU DSCSK_CLASS_D 

: 341 0918 ae STRSFREE1_DX (.STR_DESC_ADDR) 

; 58 0920 CHSFILL (2X'O", .STR_DESC_ADDR CDSCSW_LENGTH], .STR_DESC_ADDR CDSCSA_POINTER)); 
; 545 09¢¢ END; 

; 225 $9 4 2! 

; 548 +4 5 i Second consistency checks. If the previous frame is a BASIC frame 

; 268 o $ : verify that it was compiled with the same options as this one. 

: 351 99 g PREV_FMP = .FMP [BSFSA_SAVED_FP); 

: 338 03 0 IF (.PREV_FMP CBSFSA_HANDLER] EQLA BASSHANDLER) 

: 54 931 THEN 

3 6935 0932 '¢ 
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3 § , ; The previous frame is a BASIC frame. 
; § 3 Ee BEGIN 
: 560 9 7 i Make sure we are pginting to the major frame. This will be different 
; 20) , . } from the previous frame if the call came from a DEF, for example. 
; 568 9940 ; PREV_FMP = .PREV_FMP CBSFSA_BASE_R11) + X%FIELDEXPAND (BSFSFRAME_BASE, 0); 
; es 0968 4 IF ((.FMP BSFSB_SCA_V_PAC] NEQ .PREV_FMP CBSF$B_SCA_V_PAC]) OR ' 
; se) oped ; : yore BSF$B-SCA_V-DOU] NEQ .PREV-FMP CBSF$B-SCA_V_DOU])) 
: 568 945 BASSSSIGNAL (BASSK_SCAFACINT); 
Pe Bb om oer 
: sre 0949 i Put She return address back on the stack so we can return to the 
: 57% 0951 2 SP = .SP = XUPVAL; 
; Te 0938 Boe ry: RETURN-ADDRESS: 
: 577 §9ee 1 END; ' of BASSINIT_R8 
-TITLE BASSINIT 
~IDENT \1-021\ 
-EXTRN STRSFREE1_DX, BASSSSIGNAL 
-EXTRN BASSHANDLER, BASSK_TOOFEWARG 
-EXTRN BASS$K_TOOMANARG 
EXTRN BASSK-SCAFACINT 
EXTRN BASSK_DIFUSELON 
~EXTRN BASSK_ARGDONMAT 
-EXTRN BASSK"NOTIMP 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
58 51 DO 00000 BASSINIT_R8:: | 
MOVL R1, R8 
54 50 DO 00003 MOVL RO, R4 
56 6— D0 0000 MOVL (SP), RETURN_ADDRESS 
57 5D 00 0000 MOVL ‘ 
01 01 04 A4& BF 0000C CASEB 4(ARGLIST), #1, #1 
0017 0011 00011 1$: . WORD -1$,- 
7E 00G 8F 9A 00015 MOVZBL #BASSK_NOTIMP, -(SP) 
000000006 00 01 FB 00019 CALLS #1, BASSSSIGNAL 
OA 11 00020 RB 4$ 
53 44 8F 9A bee 2 28: MOVZBL #68, FCD_LEN 
53 48 BF iH $00 8 3$ Bcuz L t2 FCD_LEN 
SE 37 3 c3 0002c 4$: euBre FCD LEN, "FMP, SP 
01 1 04 Ad &F 00030 CASEB 4(ARGLIST), #1, #1 
0017 0011 00035 5$: WORD -5$,- 
7E 006 ef 9A 90039 MOVZBL #BASSK_NOTIMP, -(SP) 
00000000G 00 1 FB 0003D CALLS #1, BASSSSIGNAL 
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8$ 
-127(SP), BSFSA_MAJOR_STG 


127 (BSFSA_MAJOR_STG) 
=4 (FMP) 


-26(FMP) 
Spb RELOCI, -24(FMP) 
GLIST, -40(FMPY 


( 

( 

. 

ATALRELOC, -36(FMP) 
OUNTER 

2 

4 


saree 11$ 


rane 
nom 
_—— 
we 
es. 
zao 


. SP 
6) EcounteRd. (SP) 
TER, 14 
(ARGLIST), SP 
, ARRAY_DES 

64 (ARGLIST) 


28(ARGLIST), 68(ARGLIST), R1 


8 
28(ARGLIST) 
(R3) CCOUNTER) 

COUNTER, 
COUNT 


$ 

(ARGLIST), DATA_RELOC, R3 
3) {COUNTER ARRAY _INDEX 
F 
( 
( 


DATA_RELOC, R 
{7$ 


RAY_INDEX) (BSFSA_MAJOR_STG) 

MAJOR_STG, a(SP)+ 
ARGLIST); COUNTER, 19% 
ARGLIST), Ri 


3 
(ARRAY_DESC) CCOUNTER) 


oe 


-- - - ee ——— ee —_— — — — ——— ——E 


. 7 
“bass iniT 1E-sen-1984 00:58:25 yanctt BLingaS2 v4.0-742, 


| 
| 
SE 4 ¢2 001 SUBL2 #4, SP 
| 6 02060000 fF 198 MOVE. 34471936, (SP) 
| ED 1 3 00110 228 AOBLEQ Ri, COUNTER 21$ 
£0 A E p 114 MOVL SP, =<32(FMPS 
51 2A AG 63C 00118 MOVZWL 42C(ARGLIST), R1 
0 bs 11¢ CLRL COUNTER 
F 11 0011 BRB 4$ 
SE 4 C2 120 238 SUBL2 #4, SP 
E 04 001 CLRL (SP) 
SE 4 ¢2 001 SUBL2 #4 sp 
gf 010E0000 8F DO 001 MOVL  #17694720, (SP) 
gp B 12F 24$ AOBLEQ R1, COUNTER, 23$ 
0 2c AG FE BF 78 00133 ASHL #0, 44(ARGLIST), RO 
1 D4 00139 CLRL COUNTER 
05 11 Or B BRB 6$ 
SE 4 C2 0013 25$ SUBL2 #4, SP 
oF D4 00140 CLRL (SP) 
7 51 F3 O0142 26$:  AOBLEQ RO, COUNTER, 25$ 
30 AG OD 0146 TSTL 48 (ARGLIST) 
05 12 0014 BNEG 
34 Ad 05 0014B TSTL 2(ARGLIST) 
1F 1 0014 BEQL 
50 D4 00150 278 CLRL COUNTER 
OF 11 00152 BRB 
SE 04 C2 00154 28 SUBL2 #4, SP 
6E D4 00157 CLRL P) 
SE 04 C2 00159 SUBL2 #& sp 
6E 02060000 8F OD 0015¢ MOVL #34471936, (SP) 
EC 50 30 Ad F3 00163 29$:  AOBLEQ 48(ARGLIST), COUNTER, 28S 
59 SE DO 00168 MOVL sp BSFSA_TEMP STG 
3E 34 A&G C2 00168 SUBL2 52(ARGLIST) 
ae 59 DO OO16F 30$:  MOVL BSFSA_TEMP_STG, -20(FMP) 
50 DO «=A? «SE (00173 MOVAB -48(FAP), RO 
06 FA et OD Ad 8F 00177 CASEB 13(ARGLIST), #-6, #6 
0026 002F 0038 0041 0017D 31$: <WORD 38$-31$,- 
0013 0018 001D 00185 7$-318.~ 
5$-31$.- 
4$-31$;- 
3$-31$.- 
60 6E 00188 evn aS tao 
s 11 oOTe BRB 39§ 
60 1 6f 91 32$ CVTLD #1, (RO) 
0 19 BRB 
60 A oF 195 33$ CVTLD #10, (RO) 
B 11 00198 BRB 
60 00000064 F oF 194 348: CVTLD #100, (RO) 
60 000003E8 4 6f QIAS 35$: CVTLD #1000, (RO) 
60 00002710 af oF o185 368 cVTLD #10000, (RO) 
60 000186A0 i oF see 37%: CVTLD #100000, (RO) 
60 000F4240 8F of 1B 388: CVTLD #1000000, (RO) 
cc OA OC A& BO 001C5 39$: “OVW  12¢ARGLIST), -S2(FMP) 


4 


f 7 
BASSINIT 16-Sep-19 AX-11 Bliss-32 V4.0-742 
he 14*Sep eet} 7 9: 38: 83 BASRTL.SRCJBASINIT.B32;1 
| C6 A? 8 B44 3 1CA MOVAB @S56(ARGLIST)CDATA -RELOCI. “GOCE MP) 
8 OA? C B44 100 MOVAB a6 CARGLIST) DATAS aRELOC 6(FMP) 
CO A DO 00106 MOVL ODE_RELOC, -64(¢ 
F A? : 1DA MOVL £8 =8(FMPS 
67 000000006 1 MOVAB BASSHANDLER (EMP) 
16 Ab 6¢ 1E CMPB » 20(ARGLIS 
Oe 18 dole BLESU ses 
01 ES RS 3f 1D CMPB 0s = 27 (FMP), #1 
11 13 OO1F1 BEQL 
7E 006 8F 9A 163 MOVZBL #BAS$K_TOOMANARG, -(SP) 
4 11 OO1F BRB 41$ 
7E 006 8F 9A 001F9 40$:  # MOVZBL #BASSK TOOF EWARG, -(SP) 
000000006 09 1 Fe O1FD 41$: CALLS a 4 BASSSSIG 
C EO D . 04 42$: 6BC * AL 8s 
16 Ab 3 0209 TSTB s0¢ie GLI fst) 
08 12 0020¢ BNEQ 
7E 006 8F 9A 00 MOVZBL #BASSK_TOOFEWARG, -(SP) 
000000006 Q 01 FB 0021 CALLS #1, BASSSSIGNAL 
06 A i 0219 43$:  MOVAB (Ap ds mi, DESC_A 
5 62 00 00210 MOVL (STR ¢ ADDR) ASTR _DESC_ADDR 
0 03 Ad 91 00 0 CMPB 3ST ta ObESt_A DRS, #27 
06 13 00224 BEQL 445 
01 03 A2 91 00226 CMPB  3(STR_DESC_ADDR), #1 
06 12 0022A BNEQ 45$ 
0€ 02 A2 91 0022C 448:  CMPB = 2(STR_DESC_ADDR), #14 
0B 13 00230 BEQL 46$ 
7E 006 8F 9A 00232 45$: | MOVZBL #BASSK_ARGDONMAT, -(SP) 
000000006 00 01 FB 00 36 CALLS #1, BASS$SIGNAL 
02 03 A2 9100230 46S:  CMPB 36gTR _DESC_ADDR), #2 
0B 12 00241 BNEQ 
52 DD 00243 PUSHL g7R_D DESC_A 
000000006 00 01 FB 00245 CALLS #1,7 OF RSFREEI _DxX 
07 11 0024¢ BRB 43 
62 00 6E 00 2¢ 00 4 47$:  mMovcs 40, #0, (STR _DESC_ADDR), 
04 Be 0025 acisth “Dé st AppR 
50 OC A? 00 00255 48$: mov.  12(FMP PREV, 
51 000000006 00 i: 00 59 MOVAB BASSHAN aahk ER, 
51 60 D1 00 CMPL  (PREV_FMP), al 
ge 12 00 6 BNEQ 0 
50 F4 AQ 000000C3 BF ci 026 ADDL3 #195, -12(PREV_FMP), PREV_FMP 
CC AO CC a? 9100 $ CMPB tT (EMP). <5 (PREV_FMP) 
07 12 00 BNEQ 
cD AO cD OA? 9 0 7 CMPB Os =51(FMP), -51(PREV_FMP) 
B 1 7A BEQL 0s 
43 006 8F 9A 0027C 49$:  MOVZBL #BASSK SCAFACINT, -(SP) 
000000006 Q 1 FB 00 80 CALLS , BASS$S! 
E 4 C2 00287 50$: SUBL A SP 
6 p O2BA MOVL Spee, (SP) 
0280 RSB 
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; Routine Size: 654 bytes, Routine Base: _BASSCODE 


; 578 0955 
; 579 $32 
3 380 95 
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Used: 235 pages 
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| eal AX-11 Bliss-32 V4.0-742 
BASRTL.SRCIJBASINIT.832;1 
581 0958 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_BASSCODE 654 NOVEC,NOWRT, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
soceeee= Symbols -------- Pages Processing 
File Total Percent Mapped Time 
-$255S$DUA28: CSYSLIBISTARLET.L32;1 9776 0 581 00:01.1 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIJELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:BASINIT/OBJ=OBJ$:BASINIT MSRC$:BASINIT/UPDATE=(ENH$:BASINIT) 
; Size: 654 ode 5 + 0 data bytes 
Run Time 09:1 
Elapsed Time: 337. ; 
Lines/CPU Min: 
Lexemes/CPU-Min: 20423 
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